home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_26713_dragClipCSTR < prev    next >
Encoding:
Text File  |  1994-09-21  |  812 b   |  33 lines
  1. get getstr("ClipData")
  2. put line 1 of it into cwl
  3. put line 2 of it into cls
  4. put line 3 of it into cms
  5. put line 4 of it into crs
  6. wait 10
  7. if mouse()="down" then
  8. put icon of target into Ist
  9. if Ist=21103 then put 21102 into Ist
  10. repeat until mouse()="up"
  11. if mouseh()>crs then
  12. set loc of target to (mouseh()),(mousev())
  13. put 21104 into I
  14. else
  15. set loc of target to (cms&","&mousev())
  16. put Ist into I
  17. end if
  18. if mousev()>cls then set icon of target to 21103
  19. else set icon of target to I
  20. end repeat
  21. end if
  22. if mousev()>cls or item 1 of loc of target¡cms then
  23. do "set loc of target to cwl"
  24. set name of target to "not a clipped card"
  25. set icon of target to 21103
  26. end if
  27. LS
  28. if loc of target¡cwl then
  29. if short name of target="not a clipped card" then set name of target to id of this cd
  30. go (short name of target)
  31. UDclips
  32. end if
  33. US